home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / wb / printmanager39 / prtmanupd / install < prev    next >
Text File  |  1999-06-14  |  2KB  |  87 lines
  1.  
  2. ;--- localize strings ----
  3. (if (= @language "deutsch")
  4. (
  5.     (set #askdir_prompt "Wo ist der PrintManager installiert?")
  6.     (set #wrongver "Sie benötigen v39.25 des Programms für das Update!")
  7.     (set #patcherr "Kann Update nicht durchführen!")
  8. )
  9. (
  10.     (set #askdir_prompt "Where is PrintManager installed?")
  11.     (set #wrongver "I need v39.25 of PrtMan to perform the update!")
  12.     (set #patcherr "Update operation failed!")
  13. )
  14. )
  15.  
  16. ;--- get prtman drawer ---
  17. (if (not (exists "SYS:WBStartup/PrintManager") )
  18. (
  19.     (set @default-dest
  20.         (askdir
  21.             (prompt #askdir_prompt)
  22.             (help @askdir-help)
  23.             (default "SYS:WBStartup")
  24.         )
  25.     )
  26. )
  27. (
  28.     (set @default-dest "SYS:WBStartup")
  29. )
  30. )
  31.  
  32. (set #progpath (tackon @default-dest "PrintManager"))
  33.  
  34. ;--- check version ---
  35. (set #vernum (getversion #progpath ))
  36. (set #ver (/ #vernum 65536))
  37. (set #rev (- #vernum (* #ver 65536)))
  38.  
  39. (if(< #rev 25)
  40.     (abort #wrongver)
  41. )
  42.  
  43. (if(>= #rev 26)
  44.     (abort #wrongver)
  45. )
  46.  
  47. ;--- patch ---
  48. (set #cmd
  49.     (cat "gpatch " #progpath " 3926.gp t:PrintManager")
  50. )
  51.  
  52. (set #err 
  53.     (run #cmd   
  54.     )
  55. )
  56.  
  57. (if (> #err 0)
  58.     (abort #patcherr)
  59. )
  60.  
  61. (copyfiles
  62.     (help @copyfiles-help)
  63.     (source "t:PrintManager")
  64.     (dest @default-dest)
  65. )
  66.  
  67. (delete "t:PrintManager")
  68.  
  69. ;--- copy new catalogs ---
  70. (if (= @language "srpski")
  71.     (copyfiles
  72.         (help @copyfiles-help)
  73.         (source "catalogs/srpski/printmanager.catalog")
  74.         (dest "LOCALE:catalogs/srpski")
  75.     )
  76. )
  77.  
  78. (if (= @language "polski")
  79.     (copyfiles
  80.         (help @copyfiles-help)
  81.         (source "catalogs/polski/printmanager.catalog")
  82.         (dest "LOCALE:catalogs/polski")
  83.     )
  84. )
  85.  
  86. ;--- eof ---
  87.